home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme2.dxr / Internal_12_go scheda.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  514 b   |  39 lines
  1. global gZoom
  2.  
  3. on mouseWithin me
  4.   if gZoom = #Up then
  5.     cursor(302)
  6.   else
  7.     cursor(303)
  8.   end if
  9.   updateStage()
  10. end
  11.  
  12. on mouseLeave me
  13.   cursor(-1)
  14.   updateStage()
  15. end
  16.  
  17. on mouseDown me
  18.   scarica()
  19.   updateStage()
  20. end
  21.  
  22. on mouseUp me
  23.   if the frame = 10 then
  24.     if gZoom = #Up then
  25.       go("loupe")
  26.       gZoom = #down
  27.     else
  28.       go("scheda")
  29.       gZoom = EMPTY
  30.     end if
  31.   else
  32.     if the frame = 12 then
  33.       go("fullpage")
  34.       sprite(10).loc = point(320, 240)
  35.     end if
  36.   end if
  37.   cursor(-1)
  38. end
  39.